home *** CD-ROM | disk | FTP | other *** search
- #! /bin/csh -f
- # post files to submissions folder at purdue, orst, media lab.
- # and send e-mail to archive maintainers.
- # Something like this should probably be added to "Opener"
- # so one can drop a bundle into Opener and have it archived.
- #
- # Please send improvements to this script to
- # Michael Hawley
- # mike@media-lab.mit.edu
- # MIT Media Laboratory
- # 20 Ames Street
- # Cambridge, MA 02139
- #
- set m = /usr/lib/sendmail # open Send window in Mail; else use /usr/lib/sendmail
- set p = (pub/next/submissions pub/next/submissions)
- set h = (sonata.cc.purdue.edu cs.orst.edu)
- # if you change $h, change the addresses in the letter below.
- set n = 1
- set name = `finger $user | head -1 | sed 's/.*: //'`
- set host = `hostname`
-
- if ($n) then
- foreach i ($h)
- echo -n $i\:$p[$n] . . .
- ftp -i -n $i <<.
- user anonymous $user@$host
- hash
- bin
- cd $p[$n]
- mput $*
- .
- @ n++
- end
- endif
-
-
- cat > /tmp/submit$$ <<.
- To: archive-server@cc.purdue.edu
- Subject: submission
- Cc: next-ftp@cs.orst.edu comp-sys-next-misc@ucbvax.berkeley.edu
-
- [insert one-line description here]
- -----------------------------------------------------
- Folks -
-
- $*
- have been deposited to ~pub/next/submissions.
-
- Please let me know when it's in its proper place
- so it can be announced in comp.sys.next.announce.
-
- thanks,
- $name
- $user@$host
- -----------------------------------------------------
- [insert README file here]
- .
-
- if ("$m" == "") then
- set send = /usr/lib/sendmail
- endif
- if ("$m" == "/usr/lib/sendmail") then
- vi /tmp/submit$$
- $m -t < /tmp/submit$$
- else
- $m < /tmp/submit$$
- endif
- /bin/rm /tmp/submit$$
-